home *** CD-ROM | disk | FTP | other *** search
/ Web Clips Gallery 98 / web clips 98.iso / MIX / UNIT1.~PA < prev    next >
Text File  |  1998-03-23  |  1KB  |  65 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls,ShellAPI;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Image1: TImage;
  13.     Image2: TImage;
  14.     Image3: TImage;
  15.     Image4: TImage;
  16.     Image5: TImage;
  17.     procedure Image2Click(Sender: TObject);
  18.     procedure Image3Click(Sender: TObject);
  19.     procedure Image4Click(Sender: TObject);
  20.     procedure Image5Click(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34.  
  35. procedure TForm1.Image2Click(Sender: TObject);
  36. begin
  37. close;
  38. end;
  39.  
  40. procedure TForm1.Image3Click(Sender: TObject);
  41. begin
  42. winexec('explorer \',SW_ShowNormal);
  43. end;
  44.  
  45. procedure TForm1.Image4Click(Sender: TObject);
  46. begin
  47. winexec('\msie\setup.exe',sw_ShowNormal);
  48. end;
  49.  
  50. procedure TForm1.Image5Click(Sender: TObject);
  51. var fs,fn,fd:Array[0..255] of Char;
  52. temps:String;
  53. begin
  54. getdir(0,temps);
  55. strpcopy(fs,temps);
  56. strpcopy(fn,'home.htm');
  57. FindExecutable(fn,fs,fd);
  58. temps:=' \home.htm';
  59. strpcopy(fs,fd+temps);
  60. winexec(fs,SW_ShowNormal);
  61.  
  62. end;
  63.  
  64. end.
  65.